home *** CD-ROM | disk | FTP | other *** search
/ CD Actual Thematic 26: Security / pc_actual_seguridad.iso / Encriptacion / XORcrypt 1.1 / Install.js < prev    next >
Encoding:
Text File  |  2001-10-25  |  1.7 KB  |  45 lines
  1. var o = WScript.CreateObject("Wscript.Shell");
  2.  
  3. testversion();
  4.  
  5. var where = WScript.ScriptFullName.replace(/Install/i,"XORcrypt");
  6. var progFilesDir = o.RegRead("HKLM\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\ProgramFilesDir");
  7. var installDir = progFilesDir + "\\" + "XORcrypt";
  8. var fso = WScript.CreateObject("Scripting.FileSystemObject");
  9. try
  10. {
  11.  fso.CreateFolder(installDir);
  12.  fso.CreateFolder(installDir + "\\Keys");
  13. }
  14. catch(e)
  15. {
  16. }
  17.  
  18. fso.CopyFile("example.js", installDir + "\\", true);
  19. fso.CopyFile("install.js", installDir + "\\", true);
  20. fso.CopyFile("License.txt", installDir + "\\", true);
  21. fso.CopyFile("readme.txt", installDir + "\\", true);
  22. fso.CopyFile("Uninstall.js", installDir + "\\", true);
  23. fso.CopyFile("XORcrypt.js", installDir + "\\", true);
  24. fso.CopyFile("XORcryptOL.dll", fso.GetSpecialFolder(1) + "\\", true);
  25.  
  26. o.RegWrite("HKLM\\SOFTWARE\\Microsoft\\Exchange\\Client\\Extensions\\XORcrypt Plugin", "4.0;XORcryptOL.dll;1;01000111111100;1001100");
  27. o.RegWrite("HKLM\\SOFTWARE\\HighEdge\\XORcrypt\\KeyfileFolder", installDir + "\\Keys\\");
  28.  
  29. o.RegWrite("HKCR\\*\\shell\\XOR\\","XOR encryptyon/decription");
  30. o.RegWrite("HKCR\\*\\shell\\XOR\\command\\","wscript \""+installDir+"\\XORcrypt.js" + "\" \"%1\"");
  31.  
  32. p("XORcrypt is successfully installed!");
  33. function p(s) {
  34.    WScript.echo(s);
  35. }
  36.  
  37. function testversion() {
  38.    if(ScriptEngineMajorVersion()<5) {
  39.       var WshShell=WScript.CreateObject("WScript.Shell");
  40.       var URL="http://www.microsoft.com/msdownload/vbscript/scripting.asp";
  41.       if(WshShell.Popup("Excuse, but you yours Script Engine has too old Version."+
  42.          "\nPlease update on "+URL,1000,"",17)==1) WshShell.Run(URL);
  43.       WScript.Quit();
  44.    }
  45. }